home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / funfont2.3 / bin / misc / fansimaker < prev    next >
Text File  |  1981-05-07  |  531b  |  21 lines
  1. ;FANSI maker script $ver 1.0 © CREATIVE DESIGN 1997
  2.  
  3. stack 10000
  4. copy NEW.fansi T: >NIL:
  5. search env:mui/amirc.1.prefs 11 >NIL:
  6. if warn
  7. search env:mui/amirc.1.prefs 9 >NIL:
  8. if warn
  9. geditor T:NEW.fansi font=funfont.font size=7
  10. skip end >NIL:
  11. endif
  12. geditor T:NEW.fansi font=funfont.font size=9
  13. skip end >NIL:
  14. endif
  15. geditor T:NEW.fansi font=funfont.font size=11
  16. skip end >NIL:
  17. lab end
  18. requestfile DRAWER=AMIRC:Fansi/ FILE=NEW.fansi TITLE="Select SAVE location/name..." >ENV:Fansi
  19. copy T:New.fansi $fansi >NIL:
  20. delete T:NEW.fansi >NIL:
  21.